home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 55
/
Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_D.d64
/
adventure 2.2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
14KB
|
409 lines
100 print"[147] dies ist der zweite teil des"
105 print" adventures (levelcode: dumdidum)."
110 print" wer den ersten teil noch nicht geloest"
115 print" hat, sollte nun einen demo-charakter"
120 print" (niedrige werte) entwerfen."
125 input" neuen helden entwerfen (j/n)";a$
130 ifa$="j"thengosub2110:goto140
135 ifa$<>"n"goto125
140 input" intro ansehen (j/n)";a$
145 poke53280,0:poke53281,0
150 open4,8,4,"0:temple/ad2/name,s,r"
155 input#4,name$
160 close4
165 ifa$="n"goto220
170 gosub225
175 print"[147][156] karamba soft proudly presents":gosub285
180 forx=1to1000:nextx
185 print" the temple/great adventures ii":gosub285
190 forx=1to1000:nextx
195 gosub245
200 print" second & last part":gosub285
205 forx=1to4
210 geta$:ifa$=""goto210
215 nextx
220 gosub265:print"[147]":waffe$="schwert":goto335
225 fort=49152to49203:readd:poket,d:next:sys49152:return
230 data120,173,32,208,72,173,17,208,41,239,141,17,208,162,8,142,32,208,173,1
235 data220,201,255,208,12,232,230,2,234,234,224,17,208,237,76,13,192,173,17,208
240 data9,16,141,17,208,104,141,32,208,88,96,96
245 fort=49152to49201:readd:poket,d:next:sys49152:return
250 data120,173,32,208,72,173,17,208,41,239,141,17,208,162,0,142,32,208,173,1
255 data220,201,255,208,10,232,234,234,224,16,208,239,76,13,192,173,17,208,9,16
260 data141,17,208,104,141,32,208,88,96,192
265 fort=49152to49205:readd:poket,d:next:sys49152:return
270 data120,173,32,208,72,173,17,208,41,239,141,17,208,162,0,142,32,208,173,1
275 data220,201,255,208,14,232,232,232,232,232,232,232,224,255,208,235,76,13,192
280 data173,17,208,9,16,141,17,208,104,141,32,208,88,96,9
285 k=54272
290 pokek+24,15
295 pokek+6,240
300 pokek+4,17
305 fora=1to10
310 forx=1to255step25
315 pokek+1,x
320 nextx
325 nexta
330 pokek+4,32:return
335 open3,8,3,"0:temple/ad2/char2,s,r"
340 input#3,m,g,ch,kh
345 input#3,s,ruestung$,c,n,heiltrank
350 close3
355 gosub705:input" <return> ";a$:goto910
360 ifa$="oeffne"goto475
365 ifa$="nimm"goto475
370 ifa$="untersuche"goto475
375 ifa$="klopfe an"goto475
380 ifa$="benutze"goto475
385 ifa$="toete"goto480
390 ifa$="esse"goto685
395 ifa$="trinke"goto695
400 ifa$="help"goto485
405 ifa$="info"goto540
410 ifa$="possibilities"goto595
415 ifa$="colour"goto625
420 ifa$="punkte"goto495
425 ifa$="ruestung"goto500
430 ifa$="waffe"goto505
435 ifa$="warte"goto515
440 ifa$="look"goto525
445 ifa$="lebensenergie"goto510
450 ifa$="end"goto530
455 ifa$="lausche"goto670
460 ifa$="nahrung"goto675
465 ifa$="werte"goto705
470 goto535
475 print" auf diesen befehl muss ein hauptwort":print" folgen.":return
480 print" ist doch gar keiner da!":return
485 print" bitte jetzt mal selbst die kleinen"
490 print" grauen zellen anstrengen!":return
495 print" deine punktzahl:";s;"von 1000":return
500 print" deine ruestung:";ruestung$:return
505 print" deine waffe:";waffe$:return
510 print" deine lebensenergie:"c:return
515 print" du wartest eine weile,aber nichts ge-"
520 print" schieht.":return
525 print" du siehst nichts von interesse.":return
530 print" schlechter abtritt,echt.":goto730
535 print" unzureichende daten,";name$:return
540 print" der computer versteht ledigliche eine"
545 print" stark begrenzte anzahl von befehlen."
550 print" ein aus einem verb und einem hauptwort"
555 print" zusammengesetzter befehl kann also"
560 print" oft zu verstaendnisschwierigkeiten des"
565 print" computers fuehren.darum:"
570 print" - nur in possibilities aufgefuehrte"
575 print" befehle benutzen."
580 print" - wenn ein hauptwort notwendig ist,nur"
585 print" woerter des vorhergehenden textes"
590 print" verwenden.viel spass,";name$:return
595 print" ich verstehe folgende befehle:"
600 print" oeffne,nimm,toete,untersuche,lausche,"
605 print" klopfe an,esse,trinke,benutze,warte,"
610 print" help,info,possibilities,colour,look,"
615 print" end,punkte,ruestung,waffe,lebens-"
620 print" energie,nahrung,werte":return
625 a=0:b=0:a1=0
630 print" f1/f3/f5 to change,e(x)it"
635 geta$:ifa$=""goto640
640 ifa$="x"thenreturn
645 ifa$=chr$(133)thena=a+1:poke53281,a:ifa=250thena=0
650 ifa$=chr$(134)thenb=b+1:poke53280,b:ifb=250thenb=0
655 ifa$=chr$(135)thena1=a1+1:poke646,a1:ifa1=250thena1=0
660 ifa$=chr$(135)thenprint"[145]";:goto630
665 goto635
670 print" du hoerst nichts ungewoehnliches.":return
675 print" dein vorrat/portionen:";n
680 print" heiltraenke:";heiltrank:return
685 ifn<1thenprint" du hast nichts mehr zu essen":return
690 n=n-1:print" du isst eine portion.":c=c+10:return
695 ifheiltrank<1thenprint" hier ist nichts zu trinken.":return
700 heiltrank=heiltrank-1:print" du trinkst deinen heiltrank.":c=c+5:return
705 print" deine werte,"name$
710 print" mut"m
715 print" geschicklichkeit"g
720 print" charisma"ch
725 print" klugheit"kh:print" deine lebensenergie"c:return
730 getx$:ifx$=""goto730
735 print"[147]"
740 print" das war das ende deines helden."
745 print" deine punktzahl:"s
750 print" deine ruestung:";ruestung$
755 print" deine waffe:";waffe$
760 print" essensvorrat:"n
765 print" heiltraenke:"heiltrank:c=0:gosub705
770 print" nicht traurig sein:the show must go"
775 print" on!":goto800
780 print" neues spiel?"
785 geta$:ifa$=""goto785
790 ifa$="j"goto335
795 end
800 rem adventure high scorre saver
805 open6,8,6,"0:temple/ad2/high,s,r"
810 cr$=chr$(13)
815 input#6,h1$,h2$,h3$,h1,h2,h3
820 close6
825 gosub855
830 geta$:ifa$=""goto830
835 print"[147] todays real heros:"
840 print" ";h1$,h1
845 print" "h2$,h2
850 print" "h3$,h3:goto885
855 ifh3>sthenreturn
860 h3=s:h3$=name$
865 ifh2>h3thenreturn
870 j1=h2:h2=h3:h3=j1:j1$=h2$:h2$=h3$:h3$=j1$
875 ifh1>h2thenreturn
880 j1=h1:h1=h2:h2=j1:j1$=h1$:h1$=h2$:h2$=j1$:return
885 open6,8,6,"@0:temple/ad2/high,s,w"
890 print#6,h1$;cr$;h2$;cr$;h3$;cr$;h1;cr$;h2;cr$;h3
895 close6
900 iffin=1thenend
905 goto780
910 print"[147][159] du befindest dich im tempelgarten."
915 poke53281,0
920 print" [176][192][192][192][192][192][192][192][192][192][192][174]"
925 print" [194] [166][166][166][166] [194] der tempel"
930 print" [194] [166]1[166][166] [194]"
935 print" [194] [166][166][166][166] [194] [206][205] "
940 print" [194] [166][166][166][166] [194] [206][206][205][205] "
945 print" [194] [194] [206][164][192][192][164][205] "
950 print" [194][166][166][166] [166][166][194] [194][194][194][194][194][194] "
955 print" [194][166][166][166] [214] [166]3[194] [194][166][166][166][166][166][166][166][166][166][166][166][166][194] "
960 print" [194][166]5[166] [166][166][194] [194][166][166][166][166][166][213][201][166][166][166][166][166][194] "
965 print" [194][166][166][166] 7[166] [194] [164][175][185][162][194][166][166][166][166][166][194][194][166][166][166][166][166][194][162][185][175][164] "
970 print" [173][192][192][192][203][192][192][202][192][192][192][189] [206] [205]"
975 print"[159] von hier kannst du zum tempel (f1),"
980 print" zum gartenhaus (f3),zum vorrats-"
985 print" speicher (f5) oder zum waechter-"
990 print" haeuschen (f7)."
995 print" tempel"
1000 print" gartenhaus"
1005 print" speicher"
1010 print" waechterhaus"
1015 geta$:ifa$=""goto1015
1020 ifa$=chr$(133)goto1775
1025 ifa$=chr$(134)goto1085
1030 ifa$=chr$(135)goto1045
1035 ifa$=chr$(136)goto1240
1040 goto1015
1045 print"[145][145] speicher[146]":forx=1to1000:nextx
1050 print"[147] der speicher war bestandteil des"
1055 print" ersten spielabschnitts und ist sowieso"
1060 print" nicht betretbar.vor der tuer wurden"
1065 print" unmengen von geraetschaften aufge-"
1070 print" tuermt, -paradoxerweise- um dich nicht"
1075 print" herauszulassen.suche eine andere"
1080 print" moeglchkeit.":inputa$:goto910
1085 print"[145][145][145] gartenhaus[146]":forx=1to1000:nextx
1090 print"[147]"
1095 print" das gartenhaus erschien dir von aussen"
1100 print" viel groesser,als das nur so ein"
1105 print" kleiner raum platz hat.der raum ist"
1110 print" bis zum platzen vollgestopft mit"
1115 print" gartengeraeten.verlassen kannst du das"
1120 print" gartenhaus durch die tuere im westen."
1125 inputa$
1130 ifa$="w"goto910
1135 ifa$="untersuche gartengeraete"goto1160
1140 ifa$="benutze gartengeraete"goto1150
1145 gosub360:goto1095
1150 print" wir sind hier doch nicht bei green-"
1155 print" peace-rettet den rasen!":goto1095
1160 ift=7thenprint" keine neuen geraete!":goto1095
1165 t=7:print" neben einem berg von werkzeugen gibt"
1170 print" ein kleines schraenkchen,in dem"
1175 print" ein paar flaeschchen stehen.wirst du"
1180 print" sie dir genauer anschauen? (j/n)":inputa$:ifa$<>"j"goto1095
1185 print" du stellst fest,dass die meisten"
1190 print" flaschen leer sind.es sind zwei"
1195 print" flaschen uebrig.sie koennten von"
1200 print" nutzen sein,wenn es heiltraenke waeren"
1205 print" wirst du sie trinken? (j/n)":s=s+20:inputa$
1210 ifa$<>"j"thenprint" vernuenftig.":goto1095
1215 print" keuchend schluckst du das schmieroel"
1220 print" und das waschbenzin herunter.hier"
1225 print" einen heiltrank zu vermuten ist schon"
1230 print" sehr gewagt.":c=c-10:ifc<0thenc=1
1235 goto1095
1240 print"[145] waechterhaus[146]":forx=1to1000:nextx
1245 ifu=1thenprint"[147]":goto1580
1250 u=1:print"[147] als du dich dem waechterhaeschen"
1255 print" naeherst,erscheint einmal mehr der"
1260 print" zwei meter hohe oger.'nicht schlecht,"
1265 print" kleiner.du hast dich behaupten koennen"
1270 print" aber jetzt ist die zeit gekommen ab-"
1275 print" schied von der welt zu nehmen.damit"
1280 print" es nicht heisst,ich haette einen aus-"
1285 print" gemergelten zwergen aufgerieben,biete"
1290 print" ich dir vor deinem letzten kampf"
1295 print" diesen lebenstrank.nimmst du sein an-"
1300 print" gebot an? (j/n)":inputa$:ifa$<>"j"goto1325
1305 print" dankend schluerfst du den trank mit"
1310 print" einem wachsamen auge auf den oger."
1315 print" nachdem du die flasche abgesetzt hast"
1320 print" wird dir schwindlig.":goto1340
1325 print" schnell springt der oger herbei und"
1330 print" verabreicht dir einen gepfefferten"
1335 print" schlag."
1340 print" du erwachst im waechterhaus.du liegst"
1345 print" auf einem tisch.der oger kehrt dir"
1350 print" gerade den ruecken zu.er steht am"
1355 print" kamin und schneidet kraeuter in einen"
1360 print" kessel.er hat noch nicht bemerkt,dass"
1365 print" deine lebensgeister bereits wieder"
1370 print" heimgekommen sind.(action eingeben)":inputa$
1375 ifa$="toete"goto1395
1380 print" der oger dreht sich dir zu.er ergreift"
1385 print" einen deiner fuesse und stopft dich in"
1390 print" den kochendheissen kessel.":goto730
1395 print" du springst auf und schlaegst den oger"
1400 print" mit dem schwert kraeftig in die seite."
1405 print" ueberrascht dreht sich der oger um und"
1410 print" greift dich an!"
1415 a=20
1420 ifa<0goto1445
1425 ifc<0thenprint" der oger hat dich erwischt.":goto730
1430 b=int(rnd(0)*5)
1435 d=int(rnd(0)*10)
1440 a=a-d:c=c-b:goto1420
1445 print" du hast es geschafft!der oger liegt"
1450 print" tot zu deinen fuessen.":s=s+100
1455 print" du bist in der kueche.hier steht ein"
1460 print" kuechentisch,eine anrichte und der"
1465 print" kessel am kamin.im norden liegt das"
1470 print" wohnzimmer.":inputa$
1475 ifa$="untersuche kessel"goto1510
1480 ifa$="untersuche kamin"goto1665
1485 ifa$="n"goto1580
1490 ifa$="untersuche kuechentisch"goto1545
1495 ifa$="oeffne schublade"goto1565
1500 ifa$="untersuche anrichte"goto1525
1505 gosub360:goto1455
1510 print" im kessel kocht wasser.darin schwimmen"
1515 print" huehneraugen,knochen und kleine"
1520 print" spinnen.angeekelt wendest du dich ab.":goto1455
1525 print" hier liegen einige kraeuter die essbar"
1530 print" scheinen.hungrig stopfst du sie in"
1535 print" dich hinein.deine lebensenergie steigt"
1540 print" auf 80.":c=80:goto1455
1545 print" auf dem tisch liegt ein buch ueber"
1550 print" menschenkeulchen und andere "
1555 print" spezialitaeten des hauses.der tisch"
1560 print" besitzt eine schublade.":goto1455
1565 ifv=1thenprint" sie klemmt.":goto1455
1570 print" in der schublade liegt eine geldboerse":v=1:s$="schluesselbund"
1575 print" und ein schluesselbund.du nimmst alles mit.":s=s+10:inputa$:goto1455
1580 print" du betretest das wohnzimmer des wach-"
1585 print" gebaeudes.hier befindet sich eine"
1590 print" sitzecke und ein grosser schrank.aus-"
1595 print" gaenge finden sich im sueden zur"
1600 print" kueche und im westen ins freie.":inputa$
1605 ifa$="oeffne schrank"goto1635
1610 ifa$="untersuche schrank"goto1635
1615 ifa$="untersuche sitzecke"goto1645
1620 ifa$="oeffne polster"goto1655
1625 ifa$="w"goto910
1630 ifa$="s"goto1455
1635 print" der schrank enthaelt lediglich alte"
1640 print" kleidungsstuecke.":goto1580
1645 print" auffaellig sind die polster der sitz-"
1650 print" gruppe.":goto1580
1655 print" ok.sie enthalten allerdings nichts"
1660 print" besonderes.":goto1580
1665 print" an der linken seitenwand befindet sich"
1670 print" eine kleine oeffnung."
1675 ifs$<>"schluesselbund"goto1455
1680 print" instinktiv versuchst du,ob die"
1685 print" schluessel des ogers passen.einer"
1690 print" sitzt wie angegossen.die kaminwand"
1695 print" gibt nach und bringt einen geraeumigen"
1700 print" gang ans tageslicht.zoegernd folgst du"
1705 print" ihm.er verlaeuft in richtung ost und"
1710 print" knickt dann nach norden ab.du bewegst"
1715 print" dich in der tempelmauer!nach einer"
1720 print" weile gelangst du an eine oeffnung in"
1725 print" der westwand - geraeteschuppen teil 2"
1730 ifw=1thenprint" da du schon hierwarst,gehst du zurueck":goto1455
1735 w=1:inputa$
1740 print" hier ruht der richtige tempelschatz."
1745 print" riesige goldstatuetten und edelstein-"
1750 print" verzierte gewaender lagern hier.be-"
1755 print" geistert nimmst du dir die schoensten"
1760 print" und wertvollsten sachen,dann holst du"
1765 print" zum letzten und endgueltigen schlag":s=s+140
1770 print" gegen die monster aus.du kehrst um.":inputa$:goto1455
1775 print"[145][145][145][145] tempel[146]":forx=1to1000:nextx:print"[147]"
1780 ifs$="schluesselbund"goto1795
1785 print" dir fehlt noch der schluessel zum tor"
1790 print" des tempelgebaeudes.":inputa$:goto910
1795 print" mit einem ungewoehnlich grossen,reich"
1800 print" verzierten schluessel des ogers"
1805 print" oeffnest du das maechtige tempeltor."
1810 print" du bist in der tempelhalle.am ende"
1815 print" eines saeulenganges sitzt ein mann auf"
1820 print" einem erhoehten trohn."
1825 print" 'ich habe dich erwartet",hallt es,"
1830 [153]" 'ich bin -wie du sicherlich schon"
1835 [153]" weisst- der fuehrer des schwarzen"
1840 [153]" kultes.' quietschend faellt das tor"
1845 [153]" hinter dir ins schloss. 'hier ist das"
1850 [153]" ende deines abenteuers,so oder so.'"
1855 [153]" grimmig laechelnd ergaenzt er:'besser"
1860 [153]" so.genug geredet!stirb!'"
1865 [153]" seinen haenden entwaechst ein schwert"
1870 [153]" aus flammen.pruefend kommt er auf dich"
1875 [153]" zu.":[133]a$
1880 a[178]m[170]g[170]kh[170]ch
1885 [153]" ein kampf um leben und tot beginnt!"
1890 [139]a[177]40[137]1910
1895 [153]" der magier schlaegt zu und fuegt dir"
1900 [153]" einen schaden von 20 punkten zu.":c[178]c[171]20:[141]2035
1905 [139]c[179]0[167][153]" tja.es ist so gelaufen.":[137]730
1910 [139]c[177][178]80[137]1925
1915 [153]" der magier schlaegt zu und trifft dich"
1920 [153]" toedlich!":[137]730
1925 a[178]60
1930 d[178][181]([187](0)[172]10)[170]1
1935 e[178][181]([187](0)[172]10)[170]1
1940 a[178]a[171]d
1945 [139]a[179]0[137]1965
1950 c[178]c[171]e
1955 [139]c[179]0[137]1915
1960 [137]1930
1965 [153]" du hast den magier erschlagen!"
1970 [153]" congratulations!you have made it to"
1975 [153]" sunshine.":[133]a$:[153]"loadprint gute arbeit,"name$
1980 [153]" hier nochmals deine werte:"
1985 [153]" - mut "m
1990 [153]" - geschick"g
1995 [153]" - charisma"ch
2000 [153]" - klugheit"kh
2005 [153]" deine lebensenergie"c
2010 [153]" deine waffe war das magische schwert.":s[178]s[170]150
2015 [153]" du hattest eine lederruestung."
2020 [153]" nahrung"n
2025 [153]" heiltraenke"heiltrank
2030 [153]" punkt:"s;"von 1000":[137]2040
2035 [129]x[178]1[164]1000:[130]x:[142]
2040 [133]"";a$
2045 [153]"loaddef (NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$"
2050 [153]" peekas you open the door to the temple peek"
2055 [153]" peekarea a lot of people from the town peek"
2060 [153]" peekarrive cheering because of your peek"
2065 [153]" peeksuccessful quest.the temple soon waspeek"
2070 [153]" peeka nice place to meet again.moreover,peek"
2075 [153]" peekthere was a party the next day.but peek"
2080 [153]" peekthen the time has come for you to peek"
2085 [153]" peekleave and find new adventures,but peek"
2090 [153]" peekyou enjoy it - at least,i hope so. peek"
2095 [153]" mid$tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)"
2100 [161]a$:[139]a$[178]""[137]2100
2105 fin[178]1:[137]800
2110 cr$[178][199](13)
2115 [159]3,8,3,"@0:temple/ad2/char2,s,w"
2120 [152]3,8;cr$;8;cr$;8;cr$;8
2125 [152]3,0;cr$;"normale kleidung";cr$;40;cr$;0;cr$;0
2130 [160]3
2135 [142]